long cread(long *xp) {
    return (xp ? *xp : 0);
}